home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / hang math.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  105 lines
  1. 5 POKE53280,2:POKE53281,2
  2. 7 PRINT"[147]    [167][204][186][165] [206][205] [182][205] [181] [206][183]  [158][182][205][206][181] [206][205] [208][207] [167][204][186][165]
  3. 8 [153]"    THEN(null)(null)FN (null)(null) ABS (null)INT (null)(null)  SYSABS  INT (null)(null) +FN THEN(null)(null)FN
  4. 9 PRINT"                  [183]
  5. 10 [153],"SYSWRITTEN FOR THE PET
  6. 12 PRINT,"        BY
  7. 14 [153],"     TOM TUMEY
  8. 20 PRINT"[158]     MODIFIED AND ADAPTED FOR THE 64
  9. 22 [153],"        BY
  10. 24 PRINT,"  STEVEN DARNOLD
  11. 26 [153],"  P.O. BOX 201
  12. 28 PRINT,"  ALEXANDRA, NEW ZEALAND";
  13. 90 FORI=1TO2000:NEXT
  14. 100 PRINTCHR$(142);:GOTO30000
  15. 132 PRINT"":ONWGOSUB210,290,297,300,310,310,310,340,350,350,375
  16. 200 RETURN
  17. 210 PRINTTAB(25)"[129][162][162][162][162][162][162][162][162]"
  18. 220 PRINTTAB(25)"[161]      [221]"
  19. 230 PRINTTAB(25)"[129][161]      [221]"
  20. 240 PRINTTAB(25)"[129][161]      [221]"
  21. 250 PRINTTAB(25)"[129][161]      O"
  22. 260 PRINTTAB(25)"[129][161]"
  23. 270 PRINTTAB(25)"[161]"
  24. 280 PRINTTAB(25)"[161]"
  25. 285 RETURN
  26. 290 PRINT"":PRINTTAB(25)"[129] [146][184][184][184][184][163][163][163][163]"
  27. 292 PRINTTAB(25)"[161]"
  28. 293 PRINTTAB(25)"[161]"
  29. 294 PRINTTAB(25)"[161]"
  30. 295 PRINTTAB(25)"[161]"
  31. 296 PRINTTAB(24)"[169][146][161]":RETURN
  32. 297 PRINT"[158]                         HANG-MATH    [146]":RETURN
  33. 299 -
  34. 300 PRINT"[150]":PRINTSPC(29)"   [209]"
  35. 305 IFW<>11THENRETURN
  36. 310 PRINT"[150]":PRINTSPC(29)"  [206]";
  37. 315 IFW=5THENRETURN
  38. 320 PRINT"[150] [146]";
  39. 325 IFW=6THENRETURN
  40. 330 PRINT"[150][205]"
  41. 335 IFW<>11THENRETURN
  42. 340 PRINT"[150]":PRINTSPC(29)"    [146] "
  43. 345 IFW<>11THENRETURN
  44. 350 PRINT"[150]":PRINTSPC(29)"  [206] ";
  45. 355 IFW=9THENRETURN
  46. 360 PRINT"[150][205]"
  47. 365 IFW<>11THENRETURN
  48. 370 END
  49. 375 PRINT"";
  50. 380 PRINTTAB(30)"  [221]  "
  51. 390 PRINTTAB(30)"  [221]  "
  52. 395 PRINTTAB(30)"[150]  [209]  "
  53. 400 PRINTTAB(30)" [206] [146][205] "
  54. 405 PRINTTAB(30)"   [146]  "
  55. 410 PRINTTAB(30)" [206] [205] "
  56. 420 PRINT"":END
  57. 30000 GOTO30020
  58. 30001 PRINT"[147]
  59. 30002 [153]"SYSSOLVE THE MULTIPLICATION PROBLEMS
  60. 30003 PRINT"BY GUESSING THE DIGITS WHICH GO WHERE
  61. 30004 [153]"THE ASTERISKS ARE.":[142]
  62. 30020 [134] R$(8),F(9,5),A(5,5),P$(5,5),N(5):[129] I[178]1[164]8:[135]R$(I):[130]
  63. 30030 [131] EXCELENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE,BELOW AVERAGE
  64. 30040 [131] FAIR,POOR
  65. 30060 Q[178][187](2)
  66. 30070 G[178]0:T[178]0
  67. 30080 [143]-GENERATE PUZZLE
  68. 30090 [129] I[178]1[164]5:[129]J[178]1[164]5:P$(I,J)[178]"DEF *":A(I,J)[178]999:[130]J,I
  69. 30100 [129] I[178]0[164]9:[129] J[178]1[164]5:F(I,J)[178]0:[130]J,I:A(1,1)[178][181](10[172][187](1))
  70. 30110 A(2,1)[178][181](10[172][187](1)):A(3,1)[178][181](9[172][187](1))[170]1:A(1,2)[178][181](10[172][187](1))
  71. 30120 A(2,2)[178][181](9[172][187](1))[170]1:N(1)[178]100[172]A(3,1)[170]10[172]A(2,1)[170]A(1,1)
  72. 30130 N(2)[178]10[172]A(2,2)[170]A(1,2):N(3)[178]A(1,2)[172]N(1):N(4)[178]A(2,2)[172]N(1)[172]10
  73. 30140 N(5)[178]N(1)[172]N(2):[129] I[178]5 [164] 1 [169] [171]1:
  74. 30150 M[178]10[174](I[171]1):[129] J[178]3[164]5
  75. 30160 Q[178]N(J)[173]M:A(I,J)[178][181](Q[170].001):[130] J
  76. 30170 [129]J[178]3[164]5:N(J)[178]N(J)[171]A(I,J)[172]M:N(J)[178][181](N(J)[170].9):[130]J:[130]I
  77. 30175 [141]30001:[153]"     PRESS SHIFTWAIT TO BEGIN.
  78. 30180 A(1,4)=999:A(5,3)=999:B$="  ":W=0:N1=0:N5=7:WAIT653,1:PRINT"[147]":GOTO30330
  79. 30190 N1=N1+1:GOTO30220
  80. 30200 PRINT"YOUR INPUT IS NO GOOD,TRY AGAIN":FORB=1TO1000:NEXTB:PRINT"[147]":PRINT:PRINT
  81. 30210 REM-GET NEXT GUESS
  82. 30220 PRINT"":FORI=1TO5:PRINT"                         ":NEXT:PRINT"[145][145][145][145][145][145]"
  83. 30230 INPUT"DIGIT";D$:D=VAL(D$):IFD>9THEN30220
  84. 30240 INPUT"[158]COLUMN";C$:C=VAL(C$):IFC=0ORC>5THEN30220
  85. 30250 N9=N5
  86. 30260 IF F(D,C)=0GOTO 30300
  87. 30270 PRINT"YOU GUESSED THAT ALREADY":FORB=1TO1000:NEXTB:PRINT"[145]"
  88. 30280 PRINT"[145][145][145][145][145][145]
  89. 30290 [137] 30220
  90. 30300 F(D,C)[178]1:[129]I[178]1[164]5:[139]A(C,I)[179][177]D[137] 30320
  91. 30310 P$(C,I)[178][196](D) :N5[178]N5[170]1
  92. 30320 [130] I:[139] N9[179]N5 [167] N1[178]N1[171]1
  93. 30330 [143]-DISPLAY UPDATED PUZZLE
  94. 30350 [153]"ONONONONONONONONONONONONONONONONONONONON"
  95. 30360 [153] B$;B$;P$(3,1);P$(2,1);P$(1,1):[153]
  96. 30370 [153]B$;B$;B$;P$(2,2);P$(1,2):[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
  97. 30380 [153]B$;P$(4,3);P$(3,3);P$(2,3);P$(1,3):[153]
  98. 30390 [153]P$(5,4);P$(4,4);P$(3,4);P$(2,4);B$:[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
  99. 30400 [153]P$(5,5);P$(4,5);P$(3,5);P$(2,5);P$(1,5)
  100. 30430 [153]"SYS ^ ^ ^ ^ ^"
  101. 30440 [153]"54321WAIT":[139]N5[178]25[167][153]:[137]31000
  102. 30445 [139]W[179][177]N1[167]W[178]N1:[141]132
  103. 30450 [137] 30190
  104. 31000 [129]I[178]1[164]8:[151]53265,11:[129]J[178]1[164]400:[130]:[151]53265,27:[129]J[178]1[164]500:[130]J,I
  105.